home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Soap / CalcTest / CalcTest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-03-03  |  2.7 KB  |  113 lines
  1. unit CalcTest;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     btnAdd: TButton;
  12.     btnDivide: TButton;
  13.     btnMultiply: TButton;
  14.     btnSubtract: TButton;
  15.     edtA: TEdit;
  16.     edtB: TEdit;
  17.     edtAnswer: TEdit;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Label4: TLabel;
  22.     procedure btnAddClick(Sender: TObject);
  23.     procedure btnDivideClick(Sender: TObject);
  24.     procedure btnSubtractClick(Sender: TObject);
  25.     procedure btnMultiplyClick(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38. uses ComObj;
  39.  
  40. procedure TForm1.btnAddClick(Sender: TObject);
  41. var ovSOAPClient : Olevariant;
  42.     a,b, answer : double;
  43. begin
  44.     ovSOAPClient := CreateOleObject('MSSOAP.SoapClient');
  45.  
  46.     ovSOAPClient.mssoapinit (   'http://localhost/itec/CalcITEC.wsdl',
  47.                                 'CalcITEC', 'CalcITECPortType');
  48.  
  49.  
  50.     a       :=  StrToFloat(edtA.Text);
  51.     b       :=  StrToFloat(edtB.Text);
  52.  
  53.     answer  :=  ovSOAPClient.Add (a,b);
  54.  
  55.     edtAnswer.Text := FloatToStr(answer);
  56. end;
  57.  
  58. procedure TForm1.btnDivideClick(Sender: TObject);
  59. var ovSOAPClient : Olevariant;
  60.     a,b, answer : double;
  61. begin
  62.     ovSOAPClient := CreateOleObject('MSSOAP.SoapClient');
  63.  
  64.     ovSOAPClient.mssoapinit (   'http://localhost/itec/CalcITEC.wsdl',
  65.                                 'CalcITEC', 'CalcITECPortType');
  66.  
  67.  
  68.     a       :=  StrToFloat(edtA.Text);
  69.     b       :=  StrToFloat(edtB.Text);
  70.  
  71.     answer  :=  ovSOAPClient.Divide (a,b);
  72.  
  73.     edtAnswer.Text := FloatToStr(answer);
  74. end;
  75.  
  76. procedure TForm1.btnSubtractClick(Sender: TObject);
  77. var ovSOAPClient : Olevariant;
  78.     a,b, answer : double;
  79. begin
  80.     ovSOAPClient := CreateOleObject('MSSOAP.SoapClient');
  81.  
  82.     ovSOAPClient.mssoapinit (   'http://localhost/itec/CalcITEC.wsdl',
  83.                                 'CalcITEC', 'CalcITECPortType');
  84.  
  85.  
  86.     a       :=  StrToFloat(edtA.Text);
  87.     b       :=  StrToFloat(edtB.Text);
  88.  
  89.     answer  :=  ovSOAPClient.Subtract (a,b);
  90.  
  91.     edtAnswer.Text := FloatToStr(answer);
  92. end;
  93.  
  94. procedure TForm1.btnMultiplyClick(Sender: TObject);
  95. var ovSOAPClient : Olevariant;
  96.     a,b, answer : double;
  97. begin
  98.     ovSOAPClient := CreateOleObject('MSSOAP.SoapClient');
  99.  
  100.     ovSOAPClient.mssoapinit (   'http://localhost/itec/CalcITEC.wsdl',
  101.                                 'CalcITEC', 'CalcITECPortType');
  102.  
  103.  
  104.     a       :=  StrToFloat(edtA.Text);
  105.     b       :=  StrToFloat(edtB.Text);
  106.  
  107.     answer  :=  ovSOAPClient.Multiply (a,b);
  108.  
  109.     edtAnswer.Text := FloatToStr(answer);
  110. end;
  111.  
  112. end.
  113.